home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 24 / AACD 24.iso / AACD / Sound / LAME / MultiEncode.rx < prev    next >
Encoding:
Text File  |  1999-08-20  |  1.0 KB  |  48 lines
  1. /* MultiEncode.rx by Sigbjørn (CISC) Skjæret
  2. ** $VER: MultiEncode.rx v1.0 (20.08.99)
  3. **
  4. ** Encodes multiple files using the supplied encoder/wildcards/options arguments.
  5. */
  6. options results
  7. parse arg encoder wildcards options
  8.  
  9. if(wildcards='') then
  10. do
  11.  ver=word(sourceline(2),4)
  12.  say 'MultiEncode 'ver' by Sigbjørn (CISC) Skjæret'
  13.  say 'Usage:    "MultiEncode.rx <encoder> <wildcards> (<options>)"'
  14.  say 'Examples: "MultiEncode.rx LAME.elf ~(#?.info) -b 160 -m f", "MultiEncode.rx BladeEnc.elf (#?.wav|#?.aiff)"'
  15.  exit
  16. end
  17.  
  18. address command 'List 'wildcards' TO T:MultiEncode.tmp LFORMAT="%P%N" FILES'
  19.  
  20. call open(tmp,'T:MultiEncode.tmp',R)
  21.  
  22. num=0
  23. do while ~eof(tmp)
  24.  line=readln(tmp)
  25.  if(line~='') then
  26.  do
  27.   num=num+1
  28.   file.num=line
  29.  end
  30. end
  31.  
  32. call close(tmp)
  33. address command 'Delete T:MultiEncode.tmp QUIET'
  34. say 'Starting encoding of 'wildcards'...'
  35.  
  36. do i=1 to num
  37.  say
  38.  dot=lastpos('.',file.i)
  39.  if(dot>0 & dot>length(file.i)-5) then dest=substr(file.i,1,dot-1)
  40.  else dest=file.i
  41.  
  42.  address command encoder''options' 'file.i' 'dest'.mp3'
  43. end
  44.  
  45. say
  46. say 'Done.'
  47. exit
  48.